VLOT<- function(x)# x  um vetor em forma de matriz com cinco colunas: age, meanwei,meanlen, numbind, mul  
{
  ma=max(x$mul)# encontra o valor mximo da coluna "mul"
  Len=x[x$mul==ma,1]# encontra o valor de "meanlen" correspondente ao valor de "ma"
  return (Len)# retorna o valor de Len, que  o VLOT
}